home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)mc.d64 / slither on.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  130 lines
  1. 100 REM********************************        *           SLITHER ON         *
  2. 160 REM*               BY             *        *         ROGER D. BURGE       *
  3. 220 REM*           #2667 TPUG         *        *      FOR THE COMMODORE 64    *
  4. 280 REM*  (C) 1984 TORONTO PET USERS  *        *      GROUP INCORPORATED      *
  5. 340 REM*       TORONTO,  CANADA       *        ********************************
  6. 400 GOTO3820
  7. 460 S=1525:POKES,90:POKES+C,3
  8. 520 POKE253,5:POKE252,245:POKE680,PEEK(681)
  9. 580 POKE175,217:POKE174,245:POKE176,245:POKE177,5
  10. 640 POKE251,W:POKEF,W
  11. 700 FORT=52992TO52992+PEEK(682)+4STEP2:POKET,245:POKET+W,5:NEXT
  12. 760 POKESA,.:POKESB,.:POKE680,4:POKE681,4:LV=W
  13. 820 S=INT(RND(W)*SZ)+SC+SS:IFPEEK(S)=BSTHENPOKES,MU:POKES+C,FT:POKEF,.
  14. 880 SYSM:IFPEEK(EN)THENPOKES1,.:GOTO1060
  15. 940 IFPEEK(F)THENPRINT""(PEEK(SA)+FP*PEEK(SB))*BO:GOTO820
  16. 1000 GOTO880
  17. 1060 POKES1,33:FORT=99TO18STEP-W:POKEC+W,T:FORTT=.TODE:NEXT:NEXT
  18. 1120 POKEPEEK(252)+PEEK(253)*FP,42:POKEPEEK(252)+PEEK(253)*FP+C,DE
  19. 1180 POKES1,129:FORT=F2TO.STEP-W:FORTT=.TO99:NEXT:POKEC+24,T:NEXT:POKES1,.
  20. 1240 POKEC+24,F2:POKEC+W,28
  21. 1300 PRINT"[158]"SPC(FT)" GAME OVER! [155]":T=(PEEK(SA)+FP*PEEK(SB))*BO
  22. 1360 IFT>=HITHENHI=T:GOSUB1960
  23. 1420 POKE646,F2+2*(PEEK(646)=F2)
  24. 1480 PRINT"PRESS: FIRE TO QUIT[192]JOYSTICK TO REPLAY"
  25. 1540 IF(PEEK(56321)ANDF2)<>F2THEN1720
  26. 1600 IF(PEEK(56321)AND16)=.THEN2080
  27. 1660 FORT=.TO666:NEXT:GOTO1420
  28. 1720 PRINT"[155]                                      ";
  29. 1780 PRINT"[146]                                        ";
  30. 1840 GOSUB7780:GOSUB6220
  31. 1900 GOSUB4120:GOTO460
  32. 1960 H$="HIGH:"+STR$(HI):PRINT"[159]"SPC(40-LEN(H$))H$"SCORE:"T
  33. 2020 RETURN
  34. 2080 POKE53280,.:POKE53270,PEEK(53270)OR8:PRINT"[147]BYE":SYS64738
  35. 2140 PRINT"":POKE198,5:POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:END
  36. 2200 DATA169,17,141,4,212,160,0
  37. 2260 DATA169,214,145,252,169,13,145,174
  38. 2320 DATA166,251
  39. 2380 DATA173,1,220,41,15
  40. 2440 DATA201,7,208,5,162,1,56,176,24
  41. 2500 DATA201,13,208,5,162,2,56,176,15
  42. 2560 DATA201,11,208,5,162,3,56,176,6
  43. 2620 DATA201,14,208,2,162,4
  44. 2680 DATA134,251
  45. 2740 DATA224,1,208,14,165,252,24,201,255,208,2,230,253,230,252,56,176,51
  46. 2800 DATA224,2,208,14,165,252,24,105,40,144,2,230,253,133,252,56,176,33
  47. 2860 DATA224,3,208,14,165,252,24,201,0,208,2,198,253,198,252,56,176,15
  48. 2920 DATA224,4,208,11,165,252,56,233,40,176,2,198,253,133,252
  49. 2980 DATA24,165,252,133,174,165,253,105,212,133,175
  50. 3040 DATA174,168,2,165,252,157,00,207,232,165,253,157,00,207
  51. 3100 DATA173,168,2,56,237,169,2,205,168,2,48,2,105,128,141,170,2
  52. 3160 DATA174,170,2,189,00,207,133,176,232,189,00,207,133,177
  53. 3220 DATA160,0,169,32,145,176
  54. 3280 DATA24,173,168,2,105,2,141,168,2
  55. 3340 DATA177,252,201,83,208,35,169,129,141,4,212,169,1,141,173,2,24,238,171,2
  56. 3400 DATA208,3,238,172,2,173,169,2,201,128,240,10,24,105,2,141,169,2,56,176,15
  57. 3460 DATA201,32,240,6,169,1,141,167,2,96,169,0,141,167,2
  58. 3520 DATA169,90,145,252
  59. 3580 DATA169,3,145,174
  60. 3640 DATA162,0,160,0,200,192,0,208,251,232,236,174,2,208,245
  61. 3700 DATA169,0,141,4,212
  62. 3760 DATA96
  63. 3820 M=49152:BS=32:C=54272:SC=1024:SZ=798:SS=121:MU=83:FT=14:W=1:FP=256:EN=679
  64. 3880 F=685:SA=683:SB=684:DE=10:S9=160:F2=15
  65. 3940 FORT=MTO49433:READA:POKET,A:NEXT:T=RND(-TI):POKE53270,PEEK(53270)AND247
  66. 4000 SD=53265:GOSUB4960
  67. 4060 GOSUB5860:GOSUB4120:GOTO460
  68. 4120 POKESD,PEEK(SD)AND239          
  69. 4180 POKE53281,F2:PRINT"[155][147]":POKE53281,.
  70. 4240 PRINT"[155] [153][214][214][214][214][214][214][214][214][214][214][214][214][214] SLITHER ON [214][214][214][214][214][214][214][214][214][214][214][214][214][155] ";
  71. 4300 PRINT" SKILL LEVEL:"RIGHT$(STR$(LV),2)"          SPEED LEVEL:";
  72. 4360 PRINTRIGHT$(STR$(P1),2);
  73. 4420 PRINT"                                        [155] "
  74. 4480 H$="HIGH:"+STR$(HI)
  75. 4540 FORT=SC+120TOSC+960STEP40:POKET,S9:POKET+39,S9:NEXT
  76. 4600 FORT=SC+SSTOSC+158:POKET,S9:POKET+840,S9:NEXT
  77. 4660 PRINT"[145][145]SCORE:"0
  78. 4720 PRINT""SPC(40-LEN(H$))H$
  79. 4780 PRINT"[155]"SPC(11)"BY  ROGER D. BURGE
  80. 4840 [129]T[178].[164]LV[171]W:[153]""M$(T):[130]
  81. 4900 [151]SD,[194](SD)[176]16:[142]
  82. 4960 [129]T[178]C[164]C[170]24:[151]T,.:[130]:[134]M$(9)
  83. 5020 [151]C[170]24,F2:[151]C[170]5,17:[151]C[170]6,17:[151]C[170]W,28:S1[178]C[170]4
  84. 5080 SL$[178]"":H$[178]"":M$(.)[178][199](141)[170]SL$
  85. 5140 M$(W)[178][200](H$,12)
  86. 5200 M$(W)[178]M$(W)[170]SL$[170]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(CMDCMDCMDCMDCMDCMDSPC(SPC(CMDCMDSPC(SPC(CMDCMDSPC(SPC(CMDCMDSPC(SPC(CMDCMDCMDCMDCMDCMDSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  87. 5260 M$(2)[178]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("[170]M$(.)[170]"SPC(        SPC("[170]M$(.)[170]"    SPC(SPC("[170]M$(.)[170]"    SPC(SPC("[170]M$(.)
  88. 5320 M$(2)[178][200](H$,5)[170]SL$[170]M$(2)[170]"SPC(        SPC("[170]M$(.)[170]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  89. 5380 M$(3)[178][201](M$(2),132):M$(3)[178][200](H$,19)[170]SL$[170]M$(3)[170]""
  90. 5440 M$(4)[178][200](H$,6)[170]"SPC(SPC(CMDCMDSPC(SPC("
  91. 5500 M$(5)[178]H$[170][201](M$(4),9)
  92. 5560 M$(6)[178][200](H$,6)[170]SL$[170]SL$[170]""[170][201](M$(4),9)
  93. 5620 M$(7)[178]H$[170]SL$[170]SL$[170]""[170][201](M$(4),9)
  94. 5680 M$(8)[178][200](H$,FT)[170]"SPC(SPC(SPC(SPC(CMDCMDCMDCMDSPC(SPC(SPC(SPC("
  95. 5740 M$(9)[178][200](H$,FT)[170]SL$[170]""[170][201](M$(8),20)
  96. 5800 [142]
  97. 5860 [151]53280,F2:[151]53281,.:[153]"PRINTLOAD(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) SLITHER ON (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  98. 5920 [153]"RETURNLISTON           BY  ROGER D. BURGE           "
  99. 5980 [153][166]8)"NEED INSTRUCTIONS? (Y/N)":[151]198,.
  100. 6040 [161]M$(.):[139]M$(.)[178]"N"[167][153][166]8)"ON                        ":[137]6220
  101. 6100 [139]M$(.)[178]"Y"[167][141]7060:[137]6220
  102. 6160 [137]6040
  103. 6220 [153]"MOVE JOYSTICK TO SELECTION"[166]17)"AND PUSH FIRE BUTTON
  104. 6280 PRINTSPC(13)"[153] SKILL LEVEL? "
  105. 6340 PRINT"[155] EASY<[192][192][192][192][192][192][192][192][192][192][192]MEDIUM[192][192][192][192][192][192][192][192][192][192][192]>HARD [145][145][145][145]":GOSUB6640:LV=T
  106. 6400 POKEJS,BS:PRINT"[145][145]"SPC(13)"[158] SPEED LEVEL? "
  107. 6460 PRINT"[155] SLOW<[192][192][192][192][192][192][192][192][192][192][192]MEDIUM[192][192][192][192][192][192][192][192][192][192][192]>FAST [145][145][145][145]":GOSUB6640:SP=T
  108. 6520 P1=11-SP:LV=11-LV:SP=(SP-W)*SP-(SP=W):SP=SP-2*(SP<3):POKE686,SP:BO=P1+LV
  109. 6580 M$(.)="":RETURN
  110. 6640 FORT=2TO11:POKE646,T:PRINT" "RIGHT$(STR$(T-W),2);:POKE646,T
  111. 6700 PRINT" ";:NEXT
  112. 6760 LS=1426:RJ=1462:JS=LS
  113. 6820 POKEJS,BS:IF(PEEK(56321)ANDF2)=7THENIFJS<RJTHENJS=JS+4
  114. 6880 IF(PEEK(56321)ANDF2)=11THENIFJS>LSTHENJS=JS-4
  115. 6940 POKEJS,30:POKEJS+C,W:IF(PEEK(56321)AND16)=.THENT=(RJ-JS)/4+W:RETURN
  116. 7000 FORT=.TO75:NEXT:GOTO6820
  117. 7060 PRINTSPC(6)"[145][158]REQUIRES JOYSTICK IN PORT #1
  118. 7120 [153][166]2)"HELP SLITHER THE SNAKE COLLECT HER
  119. 7180 PRINT"VALENTINES BY USING YOUR JOYSTICK TO
  120. 7240 [153]"LEAD HER TO THEM.":[153]"SLITHER WILL GROW BIGGER EACH TIME
  121. 7300 PRINT"SHE GETS A HEART.":PRINT"BUT DON'T LET HER TOUCH ANY OF THE
  122. 7360 [153]"WALLS OR HERSELF OR IT IS GAME OVER!
  123. 7420 PRINT"YOU WILL GET POINTS FOR EVERY HEART    TAKEN. THE NUMBER OF ";
  124. 7480 PRINT"POINTS GIVEN WILL  DEPEND ON THE SKILL LEVEL AND SPEED     LEVEL ";
  125. 7540 PRINT"OPTIONS YOU HAVE CHOSEN.
  126. 7600 [153][166]9)"SYS PRESS RETURN TO PLAY ":[151]198,.
  127. 7660 [161]M$(.):[139]M$(.)[178][199](13)[167]7780
  128. 7720 [137]7660
  129. 7780 [153]"";:[129]T[178].[164]18:[153]"                                        ";:[130]:[142]
  130.